Option Explicit
'ۭqҲ
Private Sub CommandButton1_Click()
    Dim myHwnd As Long
    Dim hMenu As Long
    Dim myRc As Long
    Dim myClassName As String
    myClassName = "ThunderDFrame"
    myHwnd = FindWindow(myClassName, Me.Caption)
    hMenu = GetSystemMenu(myHwnd, 0&)
    myRc = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
    myRc = DrawMenuBar(myHwnd)
End Sub

Private Sub CommandButton2_Click()
    Dim myHwnd As Long
    Dim hMenu As Long
    Dim myRc As Long
    Dim myClassName As String
    myClassName = "ThunderDFrame"
    myHwnd = FindWindow(myClassName, Me.Caption)
    hMenu = GetSystemMenu(myHwnd, 1&)
    myRc = DrawMenuBar(myHwnd)
End Sub

Private Sub CommandButton3_Click()
    Unload Me
End Sub